home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / Misc Servers / Zope.exe / DT_INSV.PY < prev    next >
Encoding:
Python Source  |  2000-05-12  |  15.2 KB  |  445 lines
  1. ##############################################################################
  2. # 
  3. # Zope Public License (ZPL) Version 1.0
  4. # -------------------------------------
  5. # 
  6. # Copyright (c) Digital Creations.  All rights reserved.
  7. # 
  8. # This license has been certified as Open Source(tm).
  9. # 
  10. # Redistribution and use in source and binary forms, with or without
  11. # modification, are permitted provided that the following conditions are
  12. # met:
  13. # 
  14. # 1. Redistributions in source code must retain the above copyright
  15. #    notice, this list of conditions, and the following disclaimer.
  16. # 
  17. # 2. Redistributions in binary form must reproduce the above copyright
  18. #    notice, this list of conditions, and the following disclaimer in
  19. #    the documentation and/or other materials provided with the
  20. #    distribution.
  21. # 
  22. # 3. Digital Creations requests that attribution be given to Zope
  23. #    in any manner possible. Zope includes a "Powered by Zope"
  24. #    button that is installed by default. While it is not a license
  25. #    violation to remove this button, it is requested that the
  26. #    attribution remain. A significant investment has been put
  27. #    into Zope, and this effort will continue if the Zope community
  28. #    continues to grow. This is one way to assure that growth.
  29. # 
  30. # 4. All advertising materials and documentation mentioning
  31. #    features derived from or use of this software must display
  32. #    the following acknowledgement:
  33. # 
  34. #      "This product includes software developed by Digital Creations
  35. #      for use in the Z Object Publishing Environment
  36. #      (http://www.zope.org/)."
  37. # 
  38. #    In the event that the product being advertised includes an
  39. #    intact Zope distribution (with copyright and license included)
  40. #    then this clause is waived.
  41. # 
  42. # 5. Names associated with Zope or Digital Creations must not be used to
  43. #    endorse or promote products derived from this software without
  44. #    prior written permission from Digital Creations.
  45. # 
  46. # 6. Modified redistributions of any form whatsoever must retain
  47. #    the following acknowledgment:
  48. # 
  49. #      "This product includes software developed by Digital Creations
  50. #      for use in the Z Object Publishing Environment
  51. #      (http://www.zope.org/)."
  52. # 
  53. #    Intact (re-)distributions of any official Zope release do not
  54. #    require an external acknowledgement.
  55. # 
  56. # 7. Modifications are encouraged but must be packaged separately as
  57. #    patches to official Zope releases.  Distributions that do not
  58. #    clearly separate the patches from the original work must be clearly
  59. #    labeled as unofficial distributions.  Modifications which do not
  60. #    carry the name Zope may be packaged in any form, as long as they
  61. #    conform to all of the clauses above.
  62. # 
  63. # 
  64. # Disclaimer
  65. # 
  66. #   THIS SOFTWARE IS PROVIDED BY DIGITAL CREATIONS ``AS IS'' AND ANY
  67. #   EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  68. #   IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  69. #   PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL DIGITAL CREATIONS OR ITS
  70. #   CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  71. #   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  72. #   LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
  73. #   USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  74. #   ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  75. #   OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
  76. #   OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  77. #   SUCH DAMAGE.
  78. # 
  79. # 
  80. # This software consists of contributions made by Digital Creations and
  81. # many individuals on behalf of Digital Creations.  Specific
  82. # attributions are listed in the accompanying credits file.
  83. # 
  84. ##############################################################################
  85. __doc__='''Sequence variables support
  86.  
  87.  
  88. $Id: DT_InSV.py,v 1.17 2000/05/12 18:36:39 tseaver Exp $'''
  89. __version__='$Revision: 1.17 $'[11:-2]
  90.  
  91. from string import lower, rfind, split, join
  92. from math import sqrt
  93. TupleType=type(())
  94. try:
  95.     import Missing
  96.     mv=Missing.Value
  97. except: mv=None
  98.  
  99.  
  100. class sequence_variables:
  101.  
  102.     def __init__(self,items=None,query_string='',start_name_re=None):
  103.         
  104.         self.items=items
  105.         self.query_string=query_string
  106.         self.start_name_re=start_name_re
  107.  
  108.         self.data=data={
  109.             'previous-sequence': 0,
  110.             'next-sequence': 0,
  111.             'sequence-start': 1,
  112.             'sequence-end': 0,
  113.             }
  114.  
  115.  
  116.     def number(self,index): return index+1
  117.     def even(self,index): return index%2 == 0
  118.     def odd(self,index): return index%2
  119.     def letter(self,index): return chr(ord('a')+index)
  120.     def Letter(self,index): return chr(ord('A')+index)
  121.     def key(self,index):    return self.items[index][0]
  122.     def item(self,index, tt=type(())):
  123.         i=self.items[index]
  124.         if type(i) is tt and len(i)==2: return i[1]
  125.         return i
  126.  
  127.     def roman(self,index): return lower(self.Roman(index))
  128.  
  129.     def Roman(self,num):
  130.         # Force number to be an integer value
  131.         num = int(num)+1
  132.  
  133.         # Initialize roman as an empty string
  134.         roman = ''
  135.  
  136.         while num >= 1000:
  137.                 num = num - 1000
  138.                 roman = '%sM' % roman
  139.  
  140.         while num >= 500:
  141.                 num = num - 500
  142.                 roman = '%sD' % roman
  143.  
  144.         while num >= 100:
  145.                 num = num - 100
  146.                 roman = '%sC' % roman
  147.  
  148.         while num >= 50:
  149.                 num = num - 50
  150.                 roman = '%sL' % roman
  151.  
  152.         while num >= 10:
  153.                 num = num - 10
  154.                 roman = '%sX' % roman                 
  155.  
  156.         while num >= 5:
  157.                 num = num - 5
  158.                 roman = '%sV' % roman
  159.  
  160.         while num < 5 and num >= 1:
  161.                 num = num - 1
  162.                 roman = '%sI' % roman
  163.  
  164.         # Replaces special cases in Roman Numerals
  165.         
  166.         roman = sub('DCCCC', 'CM', roman)
  167.         roman = sub('CCCC', 'CD', roman)
  168.         roman = sub('LXXXX', 'XC', roman)
  169.         roman = sub('XXXX', 'XL', roman)
  170.         roman = sub('VIIII', 'IX', roman)
  171.         roman = sub('IIII', 'IV', roman)
  172.  
  173.         return roman
  174.  
  175.  
  176.     def value(self,index,name):
  177.         data=self.data
  178.         item=self.items[index]
  179.         if type(item)==TupleType and len(item)==2:
  180.             item=item[1]
  181.         if data['mapping']: return item[name]
  182.         return getattr(item,name)
  183.  
  184.     def first(self,name,key=''):
  185.         data=self.data
  186.         if data['sequence-start']: return 1
  187.         index=data['sequence-index']
  188.         return self.value(index,name) != self.value(index-1,name)
  189.  
  190.     def last(self,name,key=''):
  191.         data=self.data
  192.         if data['sequence-end']: return 1
  193.         index=data['sequence-index']
  194.         return self.value(index,name) != self.value(index+1,name)
  195.  
  196.     def length(self, ignored):
  197.         l=self.data['sequence-length']=len(self.items)
  198.         return l
  199.  
  200.     def query(self, *ignored):
  201.         if self.start_name_re is None: raise KeyError, 'sequence-query'
  202.         query_string=self.query_string
  203.         while query_string and query_string[:1] in '?&':
  204.             query_string=query_string[1:]
  205.         while query_string[-1:] == '&':
  206.             query_string=query_string[:-1]
  207.         if query_string:
  208.             query_string='&%s&' % query_string                  
  209.             re=self.start_name_re
  210.             l=re.search_group(query_string, (0,))
  211.             if l:
  212.                 v=l[1]
  213.                 l=l[0]
  214.                 query_string=(query_string[:l]+
  215.                               query_string[l+len(v)-1:])
  216.             query_string='?'+query_string[1:]
  217.         else: query_string='?'
  218.         self.data['sequence-query']=query_string
  219.         return query_string
  220.         
  221.  
  222.     statistic_names=(
  223.         'total', 'count', 'min', 'max', 'median', 'mean',
  224.         'variance', 'variance-n','standard-deviation', 'standard-deviation-n',
  225.         )
  226.  
  227.     def statistics(self,name,key):
  228.         items=self.items
  229.         data=self.data
  230.         mapping=data['mapping']
  231.         count=sum=sumsq=0
  232.         min=max=None
  233.         scount=smin=smax=None
  234.         values=[]
  235.         svalues=[]
  236.         for item in items:
  237.             try:
  238.                 if mapping: item=item[name]
  239.                 else: item=getattr(item,name)
  240.                 try:
  241.                     if item is mv:
  242.                         item = None
  243.                     if type(item)==type(1):
  244.                         s=item*long(item)
  245.                     else:
  246.                         s=item*item
  247.                     sum=sum+item
  248.                     sumsq=sumsq+s
  249.                     values.append(item)
  250.                     if min is None:
  251.                         min=max=item
  252.                     else:
  253.                         if item < min: min=item
  254.                         if item > max: max=item
  255.                 except:
  256.                     if item is not None and item is not mv:
  257.                         if smin is None: smin=smax=item
  258.                         else:
  259.                             if item < smin: smin=item
  260.                             if item > smax: smax=item
  261.                         svalues.append(item)
  262.             except: pass
  263.  
  264.         # Initialize all stats to empty strings:
  265.         for stat in self.statistic_names: data['%s-%s' % (stat,name)]=''
  266.  
  267.         count=len(values)
  268.         try: # Numeric statistics
  269.             n=float(count)
  270.             mean=sum/n
  271.             sumsq=sumsq/n - mean*mean
  272.             data['mean-%s' % name]=mean
  273.             data['total-%s' % name]=sum
  274.             data['variance-n-%s' % name]=sumsq
  275.             data['standard-deviation-n-%s' % name]=sqrt(sumsq)
  276.             if count > 1:
  277.                 sumsq=sumsq*n/(n-1)
  278.                 data['variance-%s' % name]=sumsq
  279.                 data['standard-deviation-%s' % name]=sqrt(sumsq)            
  280.             else:
  281.                 data['variance-%s' % name]=''
  282.                 data['standard-deviation-%s' % name]=''
  283.         except:
  284.             if min is None: min,max,values=smin,smax,svalues
  285.             else:
  286.                 if smin < min: min=smin
  287.                 if smax > max: max=smax
  288.                 values=values+svalues
  289.             count=len(values)
  290.  
  291.         data['count-%s' % name]=count
  292.         # data['_values']=values
  293.         if min is not None:
  294.             data['min-%s' % name]=min
  295.             data['max-%s' % name]=max
  296.             values.sort()
  297.             if count==1:
  298.                 data['median-%s' % name]=min
  299.             else:
  300.                 n=count+1
  301.                 if n/2*2==n: data['median-%s' % name]=values[n/2-1]
  302.                 else:
  303.                     n=n/2
  304.                     try: data['median-%s' % name]=(values[n]+values[n-1])/2
  305.                     except:
  306.                         try: data['median-%s' % name]=(
  307.                             "between %s and %s" % (values[n],values[n-1]))
  308.                         except: pass
  309.  
  310.         return data[key]
  311.  
  312.     def next_batches(self, suffix='batches',key=''):
  313.         if suffix != 'batches': raise KeyError, key
  314.         data=self.data
  315.         sequence=self.items
  316.         try:
  317.             if not data['next-sequence']: return ()
  318.             sz=data['sequence-step-size']
  319.             start=data['sequence-step-start']
  320.             end=data['sequence-step-end']
  321.             l=len(sequence)
  322.             orphan=data['sequence-step-orphan']
  323.             overlap=data['sequence-step-overlap']
  324.         except: AttributeError, 'next-batches'
  325.         r=[]
  326.         while end < l:
  327.             start,end,spam=opt(end+1-overlap,0,sz,orphan,sequence)
  328.             v=sequence_variables(self.items,
  329.                                  self.query_string,self.start_name_re)
  330.             d=v.data
  331.             d['batch-start-index']=start-1
  332.             d['batch-end-index']=end-1
  333.             d['batch-size']=end+1-start
  334.             d['mapping']=data['mapping']
  335.             r.append(v)
  336.         data['next-batches']=r
  337.         return r
  338.  
  339.     def previous_batches(self, suffix='batches',key=''):
  340.         if suffix != 'batches': raise KeyError, key
  341.         data=self.data
  342.         sequence=self.items
  343.         try:
  344.             if not data['previous-sequence']: return ()
  345.             sz=data['sequence-step-size']
  346.             start=data['sequence-step-start']
  347.             end=data['sequence-step-end']
  348.             l=len(sequence)
  349.             orphan=data['sequence-step-orphan']
  350.             overlap=data['sequence-step-overlap']
  351.         except: AttributeError, 'previous-batches'
  352.         r=[]
  353.         while start > 1:
  354.             start,end,spam=opt(0,start-1+overlap,sz,orphan,sequence)
  355.             v=sequence_variables(self.items,
  356.                                  self.query_string,self.start_name_re)
  357.             d=v.data
  358.             d['batch-start-index']=start-1
  359.             d['batch-end-index']=end-1
  360.             d['batch-size']=end+1-start
  361.             d['mapping']=data['mapping']
  362.             r.append(v)
  363.         r.reverse()
  364.         data['previous-batches']=r
  365.         return r
  366.  
  367.  
  368.     special_prefixes={
  369.         'first': first,
  370.         'last': last,
  371.         'previous': previous_batches,
  372.         'next': next_batches,
  373.         # These two are for backward compatability with a missfeature:
  374.         'sequence-index': lambda self, suffix, key: self['sequence-'+suffix],
  375.         'sequence-index-is': lambda self, suffix, key: self['sequence-'+suffix],
  376.         }
  377.     for n in statistic_names: special_prefixes[n]=statistics
  378.  
  379.     def __getitem__(self,key,
  380.                     special_prefixes=special_prefixes,
  381.                     special_prefix=special_prefixes.has_key
  382.                     ):
  383.         data=self.data
  384.         if data.has_key(key): return data[key]
  385.  
  386.         l=rfind(key,'-')
  387.         if l < 0: raise KeyError, key
  388.  
  389.         suffix=key[l+1:]
  390.         prefix=key[:l]
  391.  
  392.         if hasattr(self, suffix):
  393.             try: v=data[prefix+'-index']
  394.             except: pass
  395.             else: return getattr(self,suffix)(v)
  396.  
  397.         if special_prefix(prefix):
  398.             return special_prefixes[prefix](self, suffix, key)
  399.  
  400.         if prefix[-4:]=='-var':
  401.             prefix=prefix[:-4]
  402.             try: return self.value(data[prefix+'-index'],suffix)
  403.             except: pass
  404.  
  405.         if key=='sequence-query': return self.query()
  406.             
  407.         raise KeyError, key
  408.  
  409.  
  410. def sub(s1, s2, src):
  411.     return join(split(src, s1), s2)
  412.  
  413. def opt(start,end,size,orphan,sequence):
  414.     if size < 1:
  415.         if start > 0 and end > 0 and end >= start:
  416.             size=end+1-start
  417.         else: size=7
  418.  
  419.     if start > 0:
  420.  
  421.         try: sequence[start-1]
  422.         except: start=len(sequence)
  423.         # if start > l: start=l
  424.  
  425.         if end > 0:
  426.             if end < start: end=start
  427.         else:
  428.             end=start+size-1
  429.             try: sequence[end+orphan-1]
  430.             except: end=len(sequence)
  431.             # if l - end < orphan: end=l
  432.     elif end > 0:
  433.         try: sequence[end-1]
  434.         except: end=len(sequence)
  435.         # if end > l: end=l
  436.         start=end+1-size
  437.         if start - 1 < orphan: start=1
  438.     else:
  439.         start=1
  440.         end=start+size-1
  441.         try: sequence[end+orphan-1]
  442.         except: end=len(sequence)
  443.         # if l - end < orphan: end=l
  444.     return start,end,size
  445.